<%@codepage="65001"%>
<%session.codepage="65001"%>
<!-- #include virtual=/inc/dbConn.asp -->
<!-- #include virtual=/inc/function.asp -->
<!-- #include virtual=/inc/action.header.inc.asp -->

<%
	'## 파라미터 변수 선언부
	orderNo		= Request("orderNo")

	SQLTitle = "-- ■■■■ 오더 품목 정보 그리드 List up ■■■■"
	
	SQL = "SELECT seq, compPrdCd, compPrdNm,  amount, articlePrice, dueDt, flag " & _
			"	FROM tblCompOrderArticle WHERE orderNo=" & orderNo & " ORDER BY flag DESC"
	If xMode="debug" Then 
		Call showDebug(SQLTitle,SQL) 
	End If 

	Set Rs=Server.CreateObject("ADODB.RecordSet")
	Rs.open SQL, DbCon, 1
	
	Response.write "<OrderArticle>" & vbcrlf

	If Rs.eof Or Rs.bof Then 
	Else 
		Do Until Rs.eof Or Rs.bof
			
			Response.write "	<Article>" & vbcrlf
				Call mkXMLNode("seq", rs("seq"), 2)
				Call mkXMLNode("compPrdCd", rs("compPrdCd"), 2)
				Call mkXMLNode("compPrdNm", rs("compPrdNm"), 2)
				Call mkXMLNode("amount", FormatNumber(rs("amount"),0), 2)
				Call mkXMLNode("dueDt", rs("dueDt"), 2)
				Call mkXMLNode("articlePrice", FormatNumber(rs("articlePrice"),0), 2)
				Call mkXMLNode("flag", Rs("flag"), 2)
			Response.write "	</Article>" & vbcrlf

		Rs.movenext
		Loop 
	End If
	Response.write "</OrderArticle>" & vbcrlf
'	Call rsWithXML("Save OK!")
%>